home *** CD-ROM | disk | FTP | other *** search
/ BCI NET / BCI NET Dec 94.iso / archives / applications / databases / addressm2.1.lha / AddressM2.1 / Install / Deutsch < prev    next >
Encoding:
Text File  |  1980-01-06  |  2.9 KB  |  144 lines
  1. ;
  2. ;    $VER: Install-AddressManager 2.1 (04.07.94)
  3. ;
  4. ;    Install script for AddressManager 2.1
  5. ;    © Copyright 1994 by Michael Schikora
  6. ;    All Rights Reserved
  7. ;    
  8. (set intro
  9. (cat "\n Installation von AddressManager 2.1\n\n"
  10.      " ©1994 by Michael Schikora  \n"
  11.      " All Rights Reserved\n\n"
  12. ))
  13.  
  14. (set bad-kick
  15. (cat "\n\n\nSie brauchen mindestens Kickstart 2.04 (Version 37.175) !"
  16. ))
  17.  
  18. (set copying-AM
  19. (cat "AddressManager wird kopiert ..."
  20. ))
  21.  
  22. (set copying-catalogs
  23. (cat "Die Catalog-Dateien für AddressManager werden kopiert..."
  24. ))
  25.  
  26. (set copying-docs
  27. (cat "Die Dokumentation von AddressManager wird kopiert..."
  28. ))
  29.  
  30. (set which-languages
  31. (cat "\nWelche Sprachen sollen installiert werden?"
  32. ))
  33.  
  34. (set which-languages-help
  35. (cat "Der Amiga und AddressManager arbeiten noramllerweise in"
  36.      "Englisch. Wenn Sie aber Workbench(tm) 2.1 oder höher haben,"
  37.      "können Sie auch andere Sprachen benutzen.\n"
  38.      "Wenn Sie möchten, daß AddressManager die gleichen Sprachen benutzt"
  39.      "wie die Workbench, müssen für alle unterstützte Sprachen Catalog-" 
  40.      "Dateien auf ihre System-Disk kopiert werden.\n"
  41.      "Sie brauchen nur die gewünschten Sprachen anzuwählen.\n\n\n\n\n"
  42.      @askoptions-help
  43. ))
  44.  
  45. (set install-help
  46. (cat "\n\n\n\n\n\nMöchten Sie die Dokumentation installieren?"
  47. ))
  48.  
  49.  
  50. (set install-help-help
  51. (cat "Die Dokumentation könnte bei der Arbeit mit AddressManager helfen.\n"
  52. ))
  53.  
  54. (set choose (cat "Wählen Sie ein Verzeichnis\n"))
  55.  
  56. ; Kickstart version test
  57.  
  58. (if (< (/ (getversion) 65536) 37)
  59. (
  60.  (abort bad-kick)
  61. ))
  62.  
  63. (welcome intro)
  64.  
  65. (set @default-dest "SYS:")
  66.  
  67. (set destination (cat (askdir(prompt choose)(help copyingAM)(default "sys:")(newpath)(disk))))
  68.  
  69. (copyfiles
  70.   (prompt copying-AM)
  71.   (help @copylib-help)
  72.   (source "/AddressManager")
  73.   (dest destination)
  74.   (infos)
  75.   (optional force askuser)
  76. )
  77.  
  78. ; install catalogs
  79.  
  80.   (set languages 
  81.     (askoptions 
  82.       (prompt which-languages)
  83.       (help   which-languages-help)
  84.       (choices
  85.         "english"
  86.         "deutsch"
  87.       )
  88.     )
  89.   )
  90.  
  91. (if (exists "Locale:catalogs")
  92. (
  93.   (set n 1)
  94.   (while (set language (select n
  95.            "english"
  96.            "deutsch"
  97.            ""
  98.          ))
  99.   (
  100.     (if (IN languages n)
  101.     (
  102.       (copyfiles
  103.         (prompt copying-catalogs)
  104.         (help @copylib-help)
  105.         (source (cat "/catalogs/" language "/AddressManager.catalog"))
  106.         (dest (cat "Locale:catalogs/" language))
  107.         (optional force askuser)
  108.       )
  109.     ))
  110.     (set n (+ n 1))
  111.   ))
  112. )
  113. (
  114.   (set languages 0)
  115. ))
  116.  
  117.   (if(askbool
  118.        (prompt install-help)
  119.        (help install-help-help)
  120.        (default 1)
  121.      )
  122.   (
  123.     (set n 0)
  124.     (while (set language (select n
  125.              "english"
  126.              "deutsch"
  127.              ""
  128.            ))
  129.     (
  130.       (if (IN languages n)
  131.       (
  132.         (copyfiles
  133.           (prompt copying-docs)
  134.           (help @copylib-help)
  135.           (source (cat "/docs/" language) )
  136.           (all)(infos)
  137.           (dest destination)
  138.           (optional force askuser)
  139.         )
  140.       ))
  141.       (set n (+ n 1))
  142.     ))
  143.   ))
  144.